home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #11 / Amiga Plus CD - 2004 - No. 11.iso / AmiSoft / Comm / yam / YAMGenesis.lha / YAMGenesis / GenesisOnline.yam < prev    next >
Text File  |  2004-06-09  |  3KB  |  127 lines
  1. /* GenesisOnline.yam - Go online in Genesis
  2.  *
  3.  * $VER: GenesisOnline.yam 1.07 (9.6.04) © H. van der Ree <hivdree@uwnet.nl>
  4.  *
  5.  * Don't forget to change genesispath and interface into the one you use!
  6.  *                        -----------     ---------
  7.  * If you use WBStartEmu change wbstarter on line 65 into wbrun!
  8.  *                              ---------                 -----
  9.  */
  10.  
  11. OPTIONS RESULTS
  12.  
  13. PARSE ARG args
  14.  
  15. /* Change this path if required */
  16. genesispath = "AmiTCP:Genesis"
  17. genesisport = "GENESIS"
  18.  
  19. /* Change this to the interface you use */
  20. interface = "ppp0"
  21.  
  22. IF ~SHOW('L', 'rexxsupport.library') THEN
  23.   CALL ADDLIB('rexxsupport.library', 0, -30)
  24. IF ~SHOW('L', 'rexxdossupport.library') THEN
  25.   CALL ADDLIB('rexxdossupport.library', 0, -30)
  26.  
  27. action = GETVAR(YAMSTARTED, "GLOBAL")
  28. IF action = "YES" THEN
  29. DO
  30.   CALL DELETEVAR(YAMSTARTED, "GLOBAL")
  31.   EXIT 0
  32. END
  33.  
  34. noaction = GETVAR(YAMDONOTASKAGAIN, "GLOBAL")
  35.  
  36. CALL SETVAR(GENESISINTERFACE, interface, "GLOBAL")
  37.  
  38. IF FIND(UPPER(args), "NEWS") ~= 0 THEN
  39. DO
  40.   CALL OPEN('FS', 'T:YAMSTATUSLIST', 'W')
  41.   ADDRESS YAM
  42.   SETFOLDER 'Outgoing'
  43.   FOLDERINFO STEM folder.
  44.   LISTSELECT None
  45.   DO i = 0 TO folder.TOTAL - 1
  46.     SETMAIL i
  47.     MAILINFO STEM mess.
  48.     IF POS("@NEWS", upper(mess.TO)) ~= 0 THEN
  49.     DO
  50.       IF UPPER(mess.STATUS) ~= 'H' THEN
  51.       DO
  52.         CALL SETVAR("CHANGEDYAMSTATUS", "YES", "GLOBAL")
  53.         CALL WRITELN(FS, mess.MSGID)
  54.         MAILSTATUS H
  55.       END
  56.     END
  57.   END
  58.   LISTSELECT ALL
  59.   CALL CLOSE(FS)
  60. END
  61.  
  62. ADDRESS COMMAND 'popscreen to YAMSCREEN'
  63.  
  64. IF ~SHOW('P', genesisport) THEN
  65. DO
  66.   ADDRESS COMMAND
  67.   'wbstarter' genesispath
  68.   'WaitForPort' genesisport
  69.   CALL SETVAR(STARTEDBYYAM, "YES", "GLOBAL")
  70.   started = "YES"
  71.   CALL DELAY(100)
  72. END
  73.  
  74. ADDRESS VALUE genesisport
  75. ISONLINE interface
  76. RCN = RC
  77. IF RCN ~= 1 THEN
  78. DO
  79.   SHOW
  80.   CALL SETVAR(YAMSTART, "YES", "GLOBAL")
  81.   IF RCN ~= 2 THEN
  82.   DO
  83.     ONLINE interface
  84.   END
  85.   RCN = 0
  86.   DO UNTIL RCN = 1
  87.     ISONLINE interface  /* 0 = OFFLINE, 1 = ONLINE, 2 = DAILING */
  88.     RCN = RC
  89.     IF RCN = 0 THEN
  90.     DO
  91.       CALL DELETEVAR(YAMSTART, "GLOBAL")
  92.       EXIT 5
  93.     END
  94.     IF RCN ~= 1 THEN CALL DELAY(100)
  95.   END
  96.   CALL DELAY(100)
  97. END
  98. ELSE
  99. DO
  100.   IF started = "YES" THEN
  101.   DO
  102.     CALL SETVAR(YAMSTART, "YES", "GLOBAL")
  103.     CALL DELAY(100)
  104.   END
  105.   ELSE
  106.   DO
  107.     IF FIND(UPPER(args), "CLOSE") ~= 0 THEN
  108.     DO
  109.       IF noaction ~= "YES" THEN
  110.       DO
  111.         ADDRESS 'YAM'
  112.         'REQUEST "Go OffLine after getting email?" "_Yes|_DonotAskAgain|_No"'
  113.         RESLT = RESULT
  114.         IF RESLT = 1 THEN
  115.           CALL SETVAR(YAMSTART, "YES", "GLOBAL")
  116.         IF RESLT = 2 THEN
  117.           CALL SETVAR(YAMDONOTASKAGAIN, "YES", "GLOBAL")
  118.       END
  119.     END
  120.   END
  121. END
  122.  
  123. ADDRESS COMMAND 'popscreen $YAMSCREEN'
  124. CALL DELETEVAR(YAMSCREEN, "GLOBAL")
  125.  
  126. EXIT 0
  127.